<html>
 <head>
  <meta charset="utf-8"/>
  <meta content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no" name="viewport"/>
  <title>
   Robert_Hoo的回复  | 数螺 | NAUT IDEA
  </title>
  <link href="http://cdn.bootcss.com/bootstrap/3.3.6/css/bootstrap-theme.min.css" rel="stylesheet"/>
  <link href="http://cdn.bootcss.com/bootstrap/3.3.6/css/bootstrap.min.css" rel="stylesheet"/>
  <style type="text/css">
   #xmain img {
                  max-width: 100%;
                  display: block;
                  margin-top: 10px;
                  margin-bottom: 10px;
                }

                #xmain p {
                    line-height:150%;
                    font-size: 16px;
                    margin-top: 20px;
                }

                #xmain h2 {
                    font-size: 24px;
                }

                #xmain h3 {
                    font-size: 20px;
                }

                #xmain h4 {
                    font-size: 18px;
                }


                .header {
	           background-color: #0099ff;
	           color: #ffffff;
	           margin-bottom: 20px;
	        }

	        .header p {
                  margin: 0px;
                  padding: 10px 0;
                  display: inline-block;  
                  vertical-align: middle;
                  font-size: 16px;
               }

               .header a {
                 color: white;
               }

              .header img {
                 height: 25px;
              }
  </style>
  <script src="http://cdn.bootcss.com/jquery/3.0.0/jquery.min.js">
  </script>
  <script src="http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript">
   MathJax.Hub.Config({elements: ["bbpress-forums"]});
  </script>
  <script src="http://nautstatic-10007657.file.myqcloud.com/static/css/readability.min.js" type="text/javascript">
  </script>
  <script type="text/javascript">
   $(document).ready(function() {
                 var loc = document.location;
                 var uri = {
                  spec: "http://cos.name/cn/profile/378766/replies/page/2/",
                  host: "http://cos.name",
                  prePath: "http://cos.name",
                  scheme: "http",
                  pathBase: "http://cos.name/"
                 };
    
                 var documentClone = document.cloneNode(true);
                 var article = new Readability(uri, documentClone).parse();
     
                 document.getElementById("xmain").innerHTML = article.content;
                });
  </script>
  <!-- 1466467223: Accept with keywords: (title(0.0):论坛, topn(0.233333333333):主题,口口,作业,帖子,R语言,会员,求教,变量,文件,用户名,发帖,调用函数,算法,格式,赋值,方法,基本,抽样,函数,编程,问题,普通,新手,网站,数据,先花,中用,任务,论坛,时间).-->
 </head>
 <body class="bbp-user-page single singular bbpress paged-2 single-author sidebar" onload="">
  <div class="header">
   <div class="container">
    <div class="row">
     <div class="col-xs-6 col-sm-6 text-left">
      <a href="/databee">
       <img src="http://nautidea-10007657.cos.myqcloud.com/logo_white.png"/>
      </a>
      <a href="/databee">
       <p>
        数螺
       </p>
      </a>
     </div>
     <div class="hidden-xs col-sm-6 text-right">
      <p>
       致力于数据科学的推广和知识传播
      </p>
     </div>
    </div>
   </div>
  </div>
  <div class="container text-center">
   <h1>
    Robert_Hoo的回复
   </h1>
  </div>
  <div class="container" id="xmain">
   <div class="hfeed site" id="page">
    <header class="site-header" id="masthead" role="banner">
     <div id="cos-logo">
      <a href="http://cos.name/cn">
       <img src="http://cos.name/cn/wp-content/themes/COS-forest/images/headers/cos-logo.png"/>
      </a>
     </div>
     <div class="navbar" id="navbar">
      <nav class="navigation main-navigation" id="site-navigation" role="navigation">
       <h3 class="menu-toggle">
        菜单
       </h3>
       <div class="menu-%e8%8f%9c%e5%8d%951-container">
        <ul class="nav-menu" id="menu-%e8%8f%9c%e5%8d%951">
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-407772" id="menu-item-407772">
          <a href="http://cos.name/cn/">
           论坛首页
          </a>
         </li>
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-407773" id="menu-item-407773">
          <a href="http://cos.name/cn/forums/">
           讨论区
          </a>
         </li>
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-407774" id="menu-item-407774">
          <a href="http://cos.name/cn/wp-login.php?action=register">
           注册
          </a>
         </li>
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-407819" id="menu-item-407819">
          <a href="http://cos.name/">
           主站
          </a>
         </li>
        </ul>
       </div>
      </nav>
      <!-- #site-navigation -->
     </div>
     <!-- #navbar -->
    </header>
    <!-- #masthead -->
    <div class="site-main" id="main">
     <div class="content-area" id="primary">
      <div class="site-content" id="content" role="main">
       <article class="post-0 type- status-publish hentry" id="post-0">
        <header class="entry-header">
         <h1 class="entry-title">
          Robert_Hoo
         </h1>
        </header>
        <!-- .entry-header -->
        <div class="entry-content">
         <div id="bbpress-forums">
          <div id="bbp-user-wrapper">
           <div id="bbp-single-user-details">
            <div id="bbp-user-avatar">
             <span class="vcard">
              <a class="url fn n" href="http://cos.name/cn/profile/378766/" rel="me" title="Robert_Hoo">
               <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=150&amp;d=monsterid&amp;r=g"/>
              </a>
             </span>
            </div>
            <!-- #author-avatar -->
            <div id="bbp-user-navigation">
             <ul>
              <li class="">
               <span class="vcard bbp-user-profile-link">
                <a class="url fn n" href="http://cos.name/cn/profile/378766/" rel="me" title="Robert_Hoo的档案">
                 档案
                </a>
               </span>
              </li>
              <li class="">
               <span class="bbp-user-topics-created-link">
                <a href="http://cos.name/cn/profile/378766/topics/" title="Robert_Hoo发起的主题">
                 发起的主题
                </a>
               </span>
              </li>
              <li class="current">
               <span class="bbp-user-replies-created-link">
                <a href="http://cos.name/cn/profile/378766/replies/" title="Robert_Hoo创建的回复">
                 创建的回复
                </a>
               </span>
              </li>
              <li class="">
               <span class="bbp-user-favorites-link">
                <a href="http://cos.name/cn/profile/378766/favorites/" title="Robert_Hoo的收藏夹">
                 收藏夹
                </a>
               </span>
              </li>
             </ul>
            </div>
            <!-- #bbp-user-navigation -->
           </div>
           <!-- #bbp-single-user-details -->
           <div id="bbp-user-body">
            <div class="bbp-user-replies-created" id="bbp-user-replies-created">
             <h2 class="entry-title">
              回复的主题
             </h2>
             <div class="bbp-user-section">
              <div class="bbp-pagination">
               <div class="bbp-pagination-count">
                查看 15 个帖子 - 16 到 30（总计 121 个）
               </div>
               <div class="bbp-pagination-links">
                <a class="prev page-numbers" href="http://cos.name/cn/profile/378766/replies/">
                 ←
                </a>
                <a class="page-numbers" href="http://cos.name/cn/profile/378766/replies/">
                 1
                </a>
                <span class="page-numbers current">
                 2
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/378766/replies/page/3/">
                 3
                </a>
                <span class="page-numbers dots">
                 …
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/378766/replies/page/9/">
                 9
                </a>
                <a class="next page-numbers" href="http://cos.name/cn/profile/378766/replies/page/3/">
                 →
                </a>
               </div>
              </div>
              <ul class="forums bbp-replies" id="topic-0-replies">
               <li class="bbp-header">
                <div class="bbp-reply-author">
                 作者
                </div>
                <!-- .bbp-reply-author -->
                <div class="bbp-reply-content">
                 帖子
                </div>
                <!-- .bbp-reply-content -->
               </li>
               <!-- .bbp-header -->
               <li class="bbp-body">
                <div class="bbp-reply-header" id="post-349518">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月27日 下午8:16
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110952/">
                    请教：关于数据框中时间变量格式转换
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110952/#post-349518">
                   3 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349518 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110952 bbp-reply-position-3 user-id-378766 post-349518 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                  </p>
                  <pre class="highlight ">dd &lt;- cbind(BZ = c(NA,NA, as.character("1982-06-11 00:00:00"),NA), CM = c(NA,NA,"1982-06-16 00:00:00", NA))
DD &lt;- matrix(as.character(as.Date(as.POSIXct(dd))),nrow(dd))  ##先用as.character把变量类型变过来，因为matrix只能存储单一类型的变量
[,1]         [,2]
[1,] NA           NA
[2,] NA           NA
[3,] "1982-06-11" "1982-06-16"
[4,] NA           NA 
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349517">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月27日 下午7:43
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110942/">
                    limite.central()自定义函数有些地方不太懂
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110942/#post-349517">
                   3 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349517 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-110942 bbp-reply-position-3 user-id-378766 post-349517 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第2楼 的 nishenghua：
                   <br/>
                   1. 是
                   <br/>
                   2.是
                   <br/>
                   3. i是当前循环的i值
                  </p>
                  <p>
                   再多看点基本资料吧，这些赋值，循环都是最基本的东西了。。。。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349516">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月27日 下午7:23
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110948/">
                    请问如何实现R中函数调用函数
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110948/#post-349516">
                   7 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349516 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110948 bbp-reply-position-7 user-id-378766 post-349516 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第5楼 的 superdesolator：回复 第6楼 的 Ihavenothing：
                   <br/>
                   “&lt;&lt;-” 是superassignment, 怎么可能a没改变
                   <br/>
                   If global and permanent assignments are intended within a function, then either the “superassignment” operator, &lt;&lt;- or the function assign() can be used
                   <br/>
                   <a href="http://www.cran.r-project.org/doc/manuals/R-intro.pdf" rel="nofollow">
                    http://www.cran.r-project.org/doc/manuals/R-intro.pdf
                   </a>
                  </p>
                  <p>
                  </p>
                  <pre class="highlight ">&gt; rm(list=ls())
&gt; a=1
&gt; b=1
&gt; c= NULL
&gt; f1 &lt;- function() {a &lt;&lt;- a + 1;b &lt;&lt;-b+1}
&gt; f2 &lt;- function() {a &lt;&lt;- a + 2;b &lt;&lt;-b+2}
&gt; myfun &lt;- function() {f1();f2();c=a^2+b^2}  ##用&lt;&lt;-赋值，a,b的值都是即时更新，用 “=” 只是函数内有效
&gt; myfun() #运行一次myfun后看a,b,c的值
&gt; a
[1] 4
&gt; b
[1] 4
&gt; c
NULL
&gt;
&gt; a = 20  #重新赋值a = 20
&gt; myfun()  #再运行一次myfun后， 再看a,b,c的值
&gt; a         #a 新赋的值也被function()马上更新了
[1] 23
&gt; b
[1] 7
&gt; c
NULL
</pre>
                  <p>
                  </p>
                  <p>
                   “&lt;&lt;-“在一般的编程中用得不多，但是在interactive编程中用得很广泛，如在网站中某用户输入一个新的数据，要求马上给出新的结果，而这个结果又是另外一个函数要用到的，这就要用到 superassignment改变function里面的值
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349488">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月27日 上午6:12
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110949/">
                    R批量读取excel等文件
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110949/#post-349488">
                   4 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349488 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-110949 bbp-reply-position-4 user-id-378766 post-349488 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   推荐XLConnect包,可以读xls或者xlsx格式的文件,跨平台Linux, windows, Mac下都可用。。。
                  </p>
                  <p>
                   readWorksheetFromFile(“file”,sheet = 1)
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349477">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月27日 上午3:21
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110939/">
                    一个有趣的问题(GS婚姻匹配算法)的R语言求教
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110939/#post-349477">
                   5 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349477 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110939 bbp-reply-position-5 user-id-378766 post-349477 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                  </p>
                  <pre class="highlight ">rm(list = ls())
set.seed(666)
MW &lt;- data.frame(matrix(replicate(10, sample(10)),10, byrow = T),partner=0, partner.score=0)  ## M evaluate W, The higher score the better
WM &lt;- data.frame(matrix(replicate(10, sample(10)),10, byrow = T),partner=0, partner.score=0)  ## W evaluate M, The higher score the better
while(any(MW$partner==0)) {
  M &lt;- as.integer(sample(rownames(MW[MW$partner == 0, ]),1))
  W &lt;- which.max(MW[M,1:nrow(MW)])
  if (WM[W,'partner'] == 0) {
    MW$partner[M] = W
    WM$partner[W] = M
    MW$partner.score[M] = MW[M,W]
    WM$partner.score[W] = WM[W,M]
  } else if (WM[W,M] &gt; WM[W,'partner.score']) {
    MW$partner[WM$partner[W]] = 0
    MW$partner.score[WM$partner[W]] = 0
    MW$partner[M] = W
    MW$partner.score[M] = MW[M,W]
    WM$partner[W] = M
    WM$partner.score[W] = WM[W,M]
  }
  MW[M,W] &lt;- NA
  WM[W,M] &lt;- NA
}
colnames(MW) &lt;- c(paste0("W",1:nrow(MW)), "partner", "partner.score")
rownames(MW) &lt;- paste0("M", 1:nrow(MW))
colnames(WM) &lt;- c(paste0("M",1:nrow(MW)), "partner", "partner.score")
rownames(WM) &lt;- paste0("W", 1:nrow(MW))
 MW
    W1 W2 W3 W4 W5 W6 W7 W8 W9 W10 partner partner.score
M1  NA  2 NA NA  3  4  5 NA  1   6       8             7
M2  NA  1 NA NA  2  5 NA  3  4   6       7             7
M3  NA  6  1  8  5  2  7  9  3   4       1            10
M4   5  4 NA NA NA  3  2 NA  6   1       3             7
M5   3  5  1  7  6  4  2  9 NA   8       9            10
M6   1 NA  2  6 NA  4  7  3  5   8       5             9
M7   8 NA  3  5  6  2  7  9  4   1       2            10
M8   7  3  6 NA  1  4  9  8  2   5       4            10
M9   8  7  3  6  2  4  5  1  9  NA      10            10
M10  2  1  4  5  8 NA  3 NA  6   7       6             9
&gt; WM
    M1 M2 M3 M4 M5 M6 M7 M8 M9 M10 partner partner.score
W1  NA NA NA  5  2  7 10  1  3   9       3             8
W2   3 10  4  9  2 NA NA  1  6   7       7             8
W3  NA NA 10 NA  1  4  5  9  8   3       4             7
W4  NA NA  5 NA 10  2  9 NA  1   3       8             8
W5   4  1 10 NA  7 NA  3  6  8   2       6             9
W6   5  4  2 10  1  9  8  6  3  NA      10             7
W7  10 NA  7  6  3  5  1  4  8   9       2             2
W8  NA  6 10 NA  8  3  5  4  1  NA       1             9
W9   4  1  2  8 NA  3  5  7  9   6       5            10
W10  7  6 10  1  2  9  3  8 NA   4       9             5
</pre>
                  <p>
                   分数越高倾慕度越高，NA表示谈过或正在谈的。。。
                   <br/>
                   整体来看，M,W到最后都可以找到比较满意的（分高的）
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349461">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月27日 上午12:44
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110948/">
                    请问如何实现R中函数调用函数
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110948/#post-349461">
                   3 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349461 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-110948 bbp-reply-position-3 user-id-378766 post-349461 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                  </p>
                  <pre class="highlight ">a=1
myfun &lt;- function() {
  a &lt;&lt;- a + 1
  print(a)
}
 myfun()
[1] 2
&gt; myfun()
[1] 3
&gt; myfun()
[1] 4
&gt; myfun()
[1] 5
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349408">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月26日 上午1:26
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110937/">
                    《R语言实战》代码清单7-7出错
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110937/#post-349408">
                   2 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349408 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110937 bbp-reply-position-2 user-id-378766 post-349408 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第1楼 的 wangpeng692：
                   <br/>
                   把mean改为colMeans,或者用aggregate函数
                  </p>
                  <pre class="highlight ">aggregate(mtcars[vars], list(mtcars$am), mean)
  Group.1      mpg       hp       wt
1       0 17.14737 160.2632 3.768895
2       1 24.39231 126.8462 2.411000
by(mtcars[vars], mtcars$am, colMeans)
mtcars$am: 0
       mpg         hp         wt
 17.147368 160.263158   3.768895
--------------------------------------------------
mtcars$am: 1
      mpg        hp        wt
 24.39231 126.84615   2.41100 
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349401">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月26日 上午12:28
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110789/">
                    R并行计算奇怪问题求教
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110789/page/2/#post-349401">
                   16 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349401 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-110789 bbp-reply-position-16 user-id-378766 post-349401 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第14楼 的 xwydq：看你的数据是怎么样的吧，如果你有10个5G的文件，可以用10个核把他们同时读进去；再进行矩阵运算，尽量避免循环。必须要用循环时就用并行加速。。。。。具体问题具体分析吧，R的提速问题，有时优化一下算法可以解决，有时加条内存可以解决，有时的确有些小招数可以加速：
                   <a href="http://biostat.mc.vanderbilt.edu/wiki/pub/Main/SvetlanaEdenRFiles/handouts.pdf" rel="nofollow">
                    http://biostat.mc.vanderbilt.edu/wiki/pub/Main/SvetlanaEdenRFiles/handouts.pdf
                   </a>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349358">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月25日 上午2:57
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110922/">
                    combn(10000,2)，两两组合，有其它较快的方法吗
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110922/#post-349358">
                   4 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349358 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110922 bbp-reply-position-4 user-id-378766 post-349358 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第3楼 的 lyyl213：你把你实际要什么贴出来吧， 你要combn(10000,2)是一种方法，你要其他的又是另外一种方法；只要index提取出来了，把它代进x就可以了。。。。
                  </p>
                  <pre class="highlight ">x &lt;- paste0(letters[1:20], 1:10000)
dt2 &lt;- cbind(x[sequence(9999:1)],x[rep(10000:2,9999:1)])
head(dt2)
[1,] "a1" "t10000"
[2,] "b2" "t10000"
[3,] "c3" "t10000"
[4,] "d4" "t10000"
[5,] "e5" "t10000"
[6,] "f6" "t10000"
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349347">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月25日 上午12:03
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110922/">
                    combn(10000,2)，两两组合，有其它较快的方法吗
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110922/#post-349347">
                   2 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349347 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-110922 bbp-reply-position-2 user-id-378766 post-349347 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                  </p>
                  <pre class="highlight ">t1 &lt;- system.time(dt1 &lt;- combn(10000,2)) #method 1
t2 &lt;- system.time (dt2 &lt;- cbind(sequence(9999:1),rep(10000:2,9999:1))) # method 2
t1  # time for method 1
   user  system elapsed
  68.58    0.10   68.72 
t2  # time for method 2
   user  system elapsed
   0.50    0.27    0.95 
ncol(dt1)
[1] 49995000
nrow(dt2)
[1] 49995000
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349275">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月23日 下午6:13
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110893/">
                    帮人解决问题时,解决的一个集合子集问题与大家分享下
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110893/#post-349275">
                   2 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349275 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110893 bbp-reply-position-2 user-id-378766 post-349275 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第1楼 的 superdesolator：这个。。。。。R的核心函数combn就可以很好地完成, 那个包应该就是把combn作了些修改
                  </p>
                  <pre class="highlight ">matrix(a[combn(length(a), n)],n)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20]
[1,]    1    1    1    1    1    1    1    1    1     1     4     4     4     4     4     4     6     6     6     9
[2,]    4    4    4    4    6    6    6    9    9    10     6     6     6     9     9    10     9     9    10    10
[3,]    6    9   10   11    9   10   11   10   11    11     9    10    11    10    11    11    10    11    11    11
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349240">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月23日 上午1:58
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110624/">
                    求助wordcloud输出中文都是口口
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110624/#post-349240">
                   6 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349240 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-110624 bbp-reply-position-6 user-id-378766 post-349240 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第5楼 的 holu：我的是在网站上显示的问题  在电脑本地没有问题
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349236">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月23日 上午12:39
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110624/">
                    求助wordcloud输出中文都是口口
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110624/#post-349236">
                   4 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349236 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110624 bbp-reply-position-4 user-id-378766 post-349236 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   感觉跟我在这个网站显示的错误一样：http://glimmer.rstudio.com/jianhua/China/
                   <br/>
                   中国发电站变成了中口口口站。。。。。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349235">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月23日 上午12:36
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110828/">
                    新手R数据筛选错误求助，undefined columns selected
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110828/#post-349235">
                   5 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349235 -->
                <div class="even bbp-parent-forum-993 bbp-parent-topic-110828 bbp-reply-position-5 user-id-378766 post-349235 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   你把完整的code跟报错贴出来，根据你的描述没法知道code在哪里出错
                   <br/>
                   而且二楼给你的是
                  </p>
                  <pre class="highlight ">selected&lt;-chip[chip$gene%in%mygene[,1],]
你都写成了 selected&lt;-chip[chip$gene%in%mygene[,1]]
少了最后一个逗号
</pre>
                  <p>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-349205">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2013年6月21日 下午6:23
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/110587/">
                    关于R的问题，朋友们教教我吧，谢谢啦
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/110587/#post-349205">
                   8 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-349205 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-110587 bbp-reply-position-8 user-id-378766 post-349205 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   <img src="http://sdn.geekzu.org/avatar/499c9fcea1be79b6585fc7e99942781b?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/378766/" rel="nofollow" title="查看Robert_Hoo的档案">
                   Robert_Hoo
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   普通会员
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   回复 第6楼 的 renmin：呵呵 先别恼羞成怒。
                   <br/>
                   先把话说清楚，你到底是懂R呢还是不懂R呢？一会说“我是连最基本的R是什么都不知道”，一会又说“学R差不多两个月，能基本解决手头的数据处理问题了”。
                  </p>
                  <p>
                   要是你连R都不知道是什么的话，那就没有继续说的必要了，要是你真懂一点，那发帖子前不妨花两分钟读一下论坛说明：http://cos.name/cn/topic/1553
                  </p>
                  <p>
                   对号入座，看你的帖子违反了几条版规：
                  </p>
                  <pre class="highlight ">1.不要在这里问你的作业答案，你的作业是你自己的事情，我们相信大多数老师都会要求作业独立完成；若有例外，请按照老师的要求寻求适当的帮助。（你的任务是不是作业我无法下定论，但是你的问题确实是给人感觉你就是来这完成任务的，而且你的回复也认证了这一点）
2.帖子标题严禁只使用“求助”“问个问题”“请教”这样的短语，请把您的问题用简短的语言阐述清楚，不写清楚标题的帖子一律删除！另外，不要特意强调自己是新手，没有必要。
5.有问题尽管问，但不要重复发帖，这样只会让人更加不愿意回复！还有，提问之前请先花两分钟浏览或搜索一下别人相关帖子，看看有没有类似的问题。同时建议不要点名让谁回答你的问题，这里是大家参与、公开讨论的场所 （这是你4周前发的一模一样的帖子 &lt;a href="http://cos.name/cn/topic/110511#post-247600）" rel="nofollow"&gt;http://cos.name/cn/topic/110511#post-247600）&lt;/a&gt;
7.提问者请把自己的问题交代清楚，节省大家的时间，不要没有前因后果、没有上下文，让别人看了你的问题还得继续追问上下文。
</pre>
                  <p>
                  </p>
                  <p>
                   单单是第2条或第5条这种帖子就得见光死。你重复发帖都没有人帮你解决，首先就是你的问题有问题。如果真的是如你所说连第一步抽样都不知道，把你的鼠标移至页面右上角，搜索“R 抽样”。如果你连sample函数都不懂，先花一天时间看一下最基本的R函数吧，要是没有一天时间，153分钟总得有吧。
                  </p>
                  <p>
                   我回你帖子的目的很明确，不是帮助你完成任务，而是要打死一批不看论坛说明，发帖空洞无物，主题不明确，重复发帖，不会用搜索功能的新新手的。。。。这种帖子，一个人浪费30秒来看，100个人就浪费3000秒（50分钟）了，我的目的就是这种帖子越少越好。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
               </li>
               <!-- .bbp-body -->
               <li class="bbp-footer">
                <div class="bbp-reply-author">
                 作者
                </div>
                <div class="bbp-reply-content">
                 帖子
                </div>
                <!-- .bbp-reply-content -->
               </li>
               <!-- .bbp-footer -->
              </ul>
              <!-- #topic-0-replies -->
              <div class="bbp-pagination">
               <div class="bbp-pagination-count">
                查看 15 个帖子 - 16 到 30（总计 121 个）
               </div>
               <div class="bbp-pagination-links">
                <a class="prev page-numbers" href="http://cos.name/cn/profile/378766/replies/">
                 ←
                </a>
                <a class="page-numbers" href="http://cos.name/cn/profile/378766/replies/">
                 1
                </a>
                <span class="page-numbers current">
                 2
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/378766/replies/page/3/">
                 3
                </a>
                <span class="page-numbers dots">
                 …
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/378766/replies/page/9/">
                 9
                </a>
                <a class="next page-numbers" href="http://cos.name/cn/profile/378766/replies/page/3/">
                 →
                </a>
               </div>
              </div>
             </div>
            </div>
            <!-- #bbp-user-replies-created -->
           </div>
          </div>
         </div>
        </div>
        <!-- .entry-content -->
        <footer class="entry-meta">
        </footer>
        <!-- .entry-meta -->
       </article>
       <!-- #post -->
      </div>
      <!-- #content -->
     </div>
     <!-- #primary -->
     <div class="sidebar-container" id="tertiary" role="complementary">
      <div class="sidebar-inner">
       <div class="widget-area">
        <aside class="widget bbp_widget_login" id="bbp_login_widget-2">
         <h3 class="widget-title">
          登录
         </h3>
         <form action="http://cos.name/cn/wp-login.php" class="bbp-login-form" method="post">
          <fieldset>
           <legend>
            登录
           </legend>
           <div class="bbp-username">
            <label for="user_login">
             用户名:
            </label>
           </div>
           <div class="bbp-password">
            <label for="user_pass">
             密码:
            </label>
           </div>
           <div class="bbp-remember-me">
            <label for="rememberme">
             记住用户名
            </label>
           </div>
           <div class="bbp-submit-wrapper">
            <button class="button submit user-submit" id="user-submit" name="user-submit" tabindex="104" type="submit">
             登录
            </button>
           </div>
           <div class="bbp-login-links">
            <a class="bbp-register-link" href="http://cos.name/cn/wp-login.php?action=register" title="注册">
             注册
            </a>
            <a class="bbp-lostpass-link" href="http://cos.name/cn/wp-login.php?action=lostpassword" title="忘记密码">
             忘记密码
            </a>
           </div>
          </fieldset>
         </form>
        </aside>
        <aside class="widget widget_text" id="text-7">
         <h3 class="widget-title">
          搜索
         </h3>
         <div class="textwidget">
          <form action="http://www.google.com/search" id="bbp-search-form" method="get" onsubmit="Gsitesearch(this)" role="search">
           <div>
           </div>
          </form>
          <form id="bbp-search-form-baidu" onsubmit="g(this)" role="search">
           <div>
           </div>
          </form>
         </div>
        </aside>
        <aside class="widget widget_text" id="text-2">
         <h3 class="widget-title">
          新鲜事
         </h3>
         <div class="textwidget">
          <ul>
           <li>
            <a href="http://cos.name/cn/topics/">
             最新帖子
            </a>
           </li>
           <li>
            <a href="http://cos.name/cn/view/popular/">
             最热门主题
            </a>
           </li>
           <li>
            <a href="http://cos.name/cn/view/no-replies/">
             消灭零回复
            </a>
           </li>
          </ul>
         </div>
        </aside>
        <aside class="widget widget_text" id="text-3">
         <h3 class="widget-title">
          RSS订阅
         </h3>
         <div class="textwidget">
          <ul>
           <li>
            <img src="http://cos.name/wp-includes/images/rss.png"/>
            <a href="http://cos.name/cn/topics/feed/">
             所有主题
            </a>
           </li>
           <li>
            <img src="http://cos.name/wp-includes/images/rss.png"/>
            <a href="http://cos.name/cn/forums/feed/">
             所有帖子
            </a>
           </li>
          </ul>
         </div>
        </aside>
       </div>
       <!-- .widget-area -->
      </div>
      <!-- .sidebar-inner -->
     </div>
     <!-- #tertiary -->
    </div>
    <!-- #main -->
    <footer class="site-footer" id="colophon" role="contentinfo">
     <div class="site-info">
      版权所有 © 2014 统计之都 | 由
      <a href="http://wordpress.org/">
       WordPress
      </a>
      构建 | 主题修改自
      <a href="http://wordpress.org/themes/twentythirteen">
       Twenty Thirteen
      </a>
     </div>
     <!-- .site-info -->
    </footer>
    <!-- #colophon -->
   </div>
   <!-- #page -->
  </div>
 </body>
</html>